unit DataModule;

interface

uses
  SysUtils, Classes, DB, mySQLDbTables, MemDS, DBAccess, Ora;

type
  TDataModule1 = class(TDataModule)
    mySQLDatabase1: TmySQLDatabase;
    mySQLQuery1: TmySQLQuery;
    DataSource1: TDataSource;
    mySQLQuery2: TmySQLQuery;
    DataSource2: TDataSource;
    DataSource3: TDataSource;
    mySQLQuery3: TmySQLQuery;
    procedure mySQLQuery1AfterOpen(DataSet: TDataSet);
    procedure mySQLQuery2AfterOpen(DataSet: TDataSet);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  DataModule1: TDataModule1;

implementation

uses main_window;

{$R *.dfm}

procedure TDataModule1.mySQLQuery1AfterOpen(DataSet: TDataSet);
var
 percent : real;
begin
 case id_tab of
  2 : main_from.TabSheet_Parents.OnResize(self);
  3 : main_from.TabSheet_puiple.OnResize(Self);
  4 : exit;
  5 : main_from.TabSheet_tarifs.OnResize(Self);
  6 : exit;
  7 : main_from.TabSheet2.OnResize(Self);
 end;

end;

procedure TDataModule1.mySQLQuery2AfterOpen(DataSet: TDataSet);
var
 percent : real;
begin
 case id_tab of
  6 : main_from.TabSheet3.OnResize(self);
 end;
end;

end.
